home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swagg-m / hardware.swg / 0040_Sending Data to the Parallel Ports.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  271b  |  13 lines
  1. {
  2. > I would like to send one byte of data to the parallel port so I can test
  3. > an interface.  What is the easiest way to do this?
  4. }
  5.  
  6. Program Send_A_To_LPT1;
  7. Var
  8.   PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
  9. Begin
  10.   Port[PrinterPort[1]]:=Ord('A');
  11. End.
  12.  
  13.